Imports Microsoft.VisualBasic

Public Class Proveedor
    Private _rut As String
    Private _rznsocial As String
    Private _direccion As String
    Private _giro As String
    Private _telefono As String
    Private _comuna As String
    Private _region As String
    Private _contacto As String
    Private _ciudad As String
    Private _fax As String
    Private _email As String

    Public Sub New(ByVal rut As String, ByVal rznsocial As String, ByVal direccion As String, _
                   ByVal giro As String, ByVal telefono As String, ByVal comuna As String, _
                    ByVal region As String, ByVal contacto As String, ByVal ciudad As String, _
                    ByVal fax As String, ByVal email As String)
        Me._rut = rut
        Me._rznsocial = rznsocial
        Me._direccion = direccion
        Me._giro = giro
        Me._telefono = telefono
        Me._comuna = comuna
        Me._region = Region
        Me._contacto = Contacto
        Me._ciudad = Ciudad
        Me._fax = Fax
        Me._email = Email

    End Sub

    Public Property Region() As String
        Get
            Return _region
        End Get

        Set(ByVal value As String)
            _region = value
        End Set
    End Property

    Public Property Contacto() As String
        Get
            Return _contacto
        End Get

        Set(ByVal value As String)
            _contacto = value
        End Set
    End Property

    Public Property Ciudad() As String
        Get
            Return _ciudad
        End Get

        Set(ByVal value As String)
            _ciudad = value
        End Set
    End Property

    Public Property Fax() As String
        Get
            Return _fax
        End Get

        Set(ByVal value As String)
            _fax = value
        End Set
    End Property

    Public Property Email() As String
        Get
            Return _email
        End Get

        Set(ByVal value As String)
            _email = value
        End Set
    End Property

    Public Property Rut() As String
        Get
            Return _rut
        End Get

        Set(ByVal value As String)
            _rut = value
        End Set
    End Property

    Public Property Rznsocial() As String
        Get
            Return _rznsocial
        End Get

        Set(ByVal value As String)
            _rznsocial = value
        End Set
    End Property

    Public Property Direccion() As String
        Get
            Return _direccion
        End Get

        Set(ByVal value As String)
            _direccion = value
        End Set
    End Property

    Public Property Giro() As String
        Get
            Return _giro
        End Get

        Set(ByVal value As String)
            _giro = value
        End Set
    End Property

    Public Property Telefono() As String
        Get
            Return _telefono
        End Get

        Set(ByVal value As String)
            _telefono = value
        End Set
    End Property

    Public Property Comuna() As String
        Get
            Return _comuna
        End Get

        Set(ByVal value As String)
            _comuna = value
        End Set
    End Property
End Class
